10 REM RULE THE KINGDOM BY J. SHAUGHNESSY
12 POKE36879,93:POKE646,0:POKE36869,242
14 P=100:AR=10:SP=0:RD=150:YH=3:GH=3000:CA=1000:YR=1:GS=2850
16 GOTO114
18 REM SUBROUTINES
20 PRINT"[147][158]  [211][212][193][212][197][160][207][198][160][212][200][197][160][210][197][193][204][205]  [146]";
22 PRINT"[208]EOPLE:";P
24 PRINT"[144][193]CRES :";CA
26 PRINT"[194]U. [211]TORED:";GS
28 PRINT"[144][203]INGDOM IS AT ";PW$
30 PRINT"                      [146]":RETURN
32 I=VAL(I$):I=INT(ABS(I)):RETURN
34 REM DELAY LOOP
36 FORX=1TO4000:NEXT:RETURN
38 REM WAIT FOR KEY
40 PRINT"[200]IT A KEY TO PROCEED"
42 GETA$:IFA$=""THEN42
44 RETURN
46 PRINT"[147]* [200]AIL [199]REAT [210]ULER ! *[146]"
48 PRINT"[201] BEG TO  REPORT THAT IN THE YEAR";YR;"[146]OF"
50 PRINT"YOUR REIGN:"
52 IF SP=1THEN58
54 IFSP=0THENPRINT" [206]OBODY STARVED, AND":GOTO60
56 PRINT SP;"PEOPLE STARVED,AND";:GOTO60
58 PRINT"[207]NE PERSON STARVED,AND";
60 IFWK<1THEN68
62 IFWK=1THENPRINT"[207]NE";:GOTO66
64 PRINTWK;
66 PRINT"DIED IN BATTLE"
68 IFAR=1THEN72
70 PRINT AR;"PEOPLE CAME TO THE    KINGDOM":GOTO76
72 IFSP<10ANDSP>1ANDWK<1THENPRINT" ";
74 PRINT"ONE PERSON CAME TO THEKINGDOM."
76 PRINT"[215]E HARVESTED ";GH
78 PRINT"BUSHELS AT ";YH;"BUSHELS"
80 PRINT"PER ACRE."
82 PRINT"[210]ATS RUINED";RD;"BU."
84 PRINT"LEAVING";GS
86 PRINT"BUSHELS IN STORAGE."
88 PRINT"[212]HE KINGDOM HAS";CA
90 PRINT"ACRES OF LAND."
92 RETURN
94 PRINT"[207][200] [203]ING...THINK AGAIN!":GOSUB36:RETURN
96 PRINT"[212]HE STARVING PEASANTS RAIDED THE WAREHOUSES"
98 PRINT"AND DESTROYED 50% OF  THE STORED GRAIN"
100 GS=INT(GS/2):WR=0:GOSUB36:RETURN
102 IFJ>0THENRETURN
104 P=P-INT(P/2):PRINT"[212]HE PLAGUE KILLED HALFOF THE PEOPLE."
106 PRINT"[212]HE POPULATION IS NOW ";P;".":GOSUB36:RETURN
108 IFSP<PTHENRETURN
110 PRINT"[147][193]LL OF YOUR SUBJECTS  ARE [196]EAD......        [211]O ARE YOU!"
112 GOTO236
114 PRINT"[147]   [210][213][204][197] [212][200][197] [203][201][206][199][196][207][205]   [146]"
116 PRINT"[215]HERE YOU GOVERN THE  ANCIENT [203]INGDOM OF    [194]ABYLON"
118 PRINT"[212]HE OBJECT IS TO KEEP THE [203]INGDOM GROWING"
120 PRINT"[201]F YOU WANT TO QUIT,  SELL ALL OF YOUR LAND."
122 GOSUB38
124 ZZ=RND(TI):GOTO128
126 ZZ=RND(1):IFZZ<.3THENPW$="[215][193][210]":WF=1.5:GOTO130
128 WF=1:PW$="[208][197][193][195][197]"
130 GOSUB46:GOSUB38:GOSUB20
132 K=INT(RND(1)*12+16):PRINT"[204]AND IS WORTH ";K
134 PRINT"BUSHELS PER ACRE."
136 PRINT"[194][146]UY,[211][146]ELL,OR [200][146]OLD [204]AND"
138 GOSUB42
140 IFA$="B"ORA$="S"ORA$="H"THEN144
142 PRINT"[157] [157][145]":GOTO138
144 IFA$="H"THEN172
146 PRINT"[200]OW MANY ACRES"
148 INPUT"*[157][157][157]";I$
150 IFI$="*"THENPRINT"[145][145]":GOTO148
152 GOSUB32:IFI=0THEN172
154 IFA$="S"THEN164
156 J=I*K:IFJ<=GSTHEN160
158 GOSUB94:GOSUB20:GOTO136
160 GS=GS-J:CA=CA+I
162 GOSUB20:GOTO172
164 IFI=CATHEN234
166 IFI>CATHENGOSUB94:GOSUB20:GOTO146
168 CA=CA-I:GS=GS+K*I
170 GOSUB20
172 PRINT:PRINT"[196]ISTRIBUTE HOW MANY   BUSHELS FOR FOOD"
174 INPUT"*[157][157][157]";I$
176 IFI$="*"THENPRINT"[145][145][145]":GOTO174
178 GOSUB32
180 IFI<=GSTHEN184
182 GOSUB94:GOSUB20:GOTO172
184 IFI>(5*P)THEN190
186 IFI>GS/4THEN190
188 WR=1:REM WAREHS RAID
190 GS=GS-I:SP=P-INT(I/20):AR=0:GOSUB108:IFSP>=0THEN194
192 AR=-SP/2:SP=0
194 IFWR=1THENGOSUB96
196 GOSUB20
198 PRINT"[200]OW MANY ACRES SHALL  WE PLANT"
200 INPUT"*[157][157][157]";I$
202 IFI$="*"THENPRINT"[145][145][145]":GOTO200
204 GOSUB32
206 IFI>CATHEN214
208 J=INT(I/2):IFJ>GSTHEN214
210 IFI>(10*P/WF)THEN214
212 GOTO218
214 GOSUB94:GOSUB20:GOTO198
216 REM CALC CHANGES FOR YEAR
218 GS=GS-J:YH=1+INT(RND(1)*5):GH=YH*I:RD=INT((GS+GH)*.07*RND(1)):GS=GS-RD+GH
220 J=INT(RND(1)*25):IFWF=1.5THENWK=INT(.3*RND(1)*P):GOTO224
222 WK=0
224 AR=INT(AR+(5-YH)*GS/600+1):IFAR<=99THEN228
226 AR=99
228 IFAR<0THENAR=0
230 P=P+AR-SP-WK:YR=YR+1
232 GOSUB102:GOTO126
234 PRINT"[147][217]OU HAVE SOLD ALL OF  YOUR LAND,THE GAME IS OVER"
236 PRINT"[217]OU CAN GO BACK TO    BEING YOURSELF."
238 CA=CA+INT(GS/K):B$="INCREASED"
240 IF CA<1130THENB$="DECREASED"
242 PRINT"[196]URING YOUR REIGN,YOU",B$;" THE WEALTH"
244 PRINT"OF THE KINGDOM BY FACTOR OF";INT((CA/1130)*1000)/1000;"IN";
246 PRINTYR;" YEARS."
248 END